target

target


Observations (n) 2000     Unique (n) 2    
Missing (n) 0     Missing ratio 0    
Empty (n) 0     Empty ratio 0    
Value n Proportion
negative 1866 0.93
positive 134 0.07

eg_factor_50

eg_factor_50


Observations (n) 200     Unique (n) 49    
Missing (n) 0     Missing ratio 0    
Empty (n) 0     Empty ratio 0    
Value n Proportion
New Hampshire 9 0.04
Missouri 8 0.04
Arkansas 7 0.04
Idaho 7 0.04
Nebraska 7 0.04
Nevada 7 0.04
Oklahoma 7 0.04
Texas 7 0.04
Georgia 6 0.03
Illinois 5 0.03
Iowa 5 0.03
Maryland 5 0.03
Massachusetts 5 0.03
New Jersey 5 0.03
Oregon 5 0.03
Virginia 5 0.03
Wyoming 5 0.03
Indiana 4 0.02
Kansas 4 0.02
Kentucky 4 0.02
Michigan 4 0.02
North Dakota 4 0.02
Ohio 4 0.02
Pennsylvania 4 0.02
Rhode Island 4 0.02
Tennessee 4 0.02
Vermont 4 0.02
West Virginia 4 0.02
Alabama 3 0.01
Alaska 3 0.01
California 3 0.01
Connecticut 3 0.01
Delaware 3 0.01
Florida 3 0.01
Hawaii 3 0.01
Louisiana 3 0.01
Minnesota 3 0.01
South Carolina 3 0.01
Utah 3 0.01
Arizona 2 0.01
Maine 2 0.01
Montana 2 0.01
New York 2 0.01
North Carolina 2 0.01
South Dakota 2 0.01
Washington 2 0.01
Wisconsin 2 0.01
Mississippi 1 0.00
New Mexico 1 0.00

eg_factor_50 ~ target

negative positive
Alabama 3 NA
Alaska 3 NA
Arizona 2 NA
Arkansas 7 NA
California 3 NA
Connecticut 2 1
Delaware 3 NA
Florida 3 NA
Georgia 4 2
Hawaii 2 1
Idaho 7 NA
Illinois 5 NA
Indiana 4 NA
Iowa 5 NA
Kansas 4 NA
Kentucky 3 1
Louisiana 2 1
Maine 2 NA
Maryland 5 NA
Massachusetts 5 NA
Michigan 4 NA
Minnesota 3 NA
Mississippi 1 NA
Missouri 8 NA
Montana 2 NA
Nebraska 7 NA
Nevada 6 1
New Hampshire 5 4
New Jersey 5 NA
New Mexico 1 NA
New York 2 NA
North Carolina 2 NA
North Dakota 4 NA
Ohio 3 1
Oklahoma 7 NA
Oregon 5 NA
Pennsylvania 3 1
Rhode Island 4 NA
South Carolina 3 NA
South Dakota 2 NA
Tennessee 4 NA
Texas 7 NA
Utah 3 NA
Vermont 4 NA
Virginia 5 NA
Washington 1 1
West Virginia 4 NA
Wisconsin 2 NA
Wyoming 5 NA

---
title: "eeda demonstration dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme: bootstrap
    orientation: columns
    vertical_layout: scroll
    source: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(knitr)
library(eeda)

target_var <- "target"
reference_var <- c("key_age", "key_recency", "key_frequency", "key_monetary")
study_variables <-
  names(eeda_test_data %>%
    dplyr::select(-tidyselect::any_of(c(target_var))))
```

```{r results="asis"}
curios::add_custom_style()
```

```{r results="asis"}
eeda::extra_eda(eeda_test_data,
  eda_var = "target",
  menu_title = "Univariate"
)
```

```{r results="asis"}
# study_variables %>%
"eg_factor_50" %>% 
  furrr::future_walk(~ eeda::extra_eda(eeda_test_data[1:200, ],
    eda_var = .x,
    target_var = target_var,
    reference_var = reference_var,
    menu_title = "Bivariate"
  ),
  .options = furrr::furrr_options(seed = NULL)
  )
```